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000000 
000000 



. TITLE TSKM2B 

. ENABL LC 

. DSABL GBL 

. CSECT TSKM2B 



Keyboard DEFINE Command routines 



TSKM2B: 



TSKM2B is the portion of TSKMON that contains the code 
to implement the DEFINE command. 

Copyright 1985. 

S?<H Computer Systems* Inc. 

Nashville, Tennessee 

Macro calls 

. MCALL . ELRG. . EL.AW, . CRRG, . CRAW, . TTYOUT, . PRINT 
. MCALL . LOOKUP, . READW, . CLOSE, . TTYIN 

Global definitions 

. GLOBL CMDDEF, SHOKEY, INIUKD, GETSYP, CMDRCL, CMDACC, CMDNAC 

Global references 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 



OKFAND, OKFNND, TBLOVF, K50BUF, KES0EV, BADACC, PR1WRN 
SPACE, CORUSR, PO$BYS, GTRD50, ASNSRC, AT*DEV, CHKDLM 
R50SY, R50DK, SYINDX, SYUNIT, NUMDEV, PNAME, PRIVCO 
OF*DEV, OF*UNT, OF*FIL, OF*FLG, OF**SZ, OT*RON 
*DOOFF, LSW, EN*SLO, LSW7, *SLON, SLSPTR, SLLPTR, SLRPTR 
EM*CSE, PRTFIX. SPACE2, SLLEND, SLLBUF, INVOPT 
P2«VIR, FIXPRV, fBCCA, LSW5, PRIVA2, PRIVC2, *PRGLK 
LSW2, CVTUC, VONTM, ACRTXT, RCLREV, *KINIT 
SYPSWD, SYPSPR, «ECHO, *NOIN, LSW3, *SUCF, LSW9 

CRLF, R. GSIZ, W. NSIZ, W. NLEN, BLKO 

EM*KNS, ACRDEC, EM*NSF 

RS. NEW, RS. EGR, KEYRCB, PRTSPC, KD*TYP 

EM*KCR, EM*KWC, WS. CRW, EM*KNT 
BLKO, ACRSTR, KEYMXT, EM*STL, W. NRID, W. NSTS, WS. MAP 
R. GID, R. GSTS, RS. CRR, RS. GBL, RS. C6R, RS. PVT, XAREA, VPARl 
KF*ECO, KF*TRM, KT*GLD, CVTTAB, SKPSPC, SEARCH, AMBOPT, FKILL 
KT*NRM, OPTLST, KT*LET, KD*COD, KD*FLG, KD*TXT, RDCMD, KEYPAR 
VKEYMX, KD**SZ, EM*KTF, KT*GLT, EM*KNU. KEYRCB, RC*BAS 
KC*KPO, KC*KP1, KC«KP2, KC*KP3, KC*KP4, KC*KP5, KC*KP6 
KC*KP7, KC«KP8, KC*KP9, KC*DOT, KC*COM, KC*MIN, KC*ENT 
KC«UP, KC«DWN, KC$LFT, KC*RIT, KC*E1, KC$E2, KC*E3, KC*E4 
KC*E5, KC*E6, KC*F6, KC*F7, KC«F8, KC*F9, KC«F10, KC*F11 
KC$F12, KC*F13, KC*F14, KC*F15, KC*F16, KC*F17, KC*F18 
KC*F19, KC*F20, KC*PF1, KC$PF2, KC*PF3, KC*PF4 



TMfKND, TM*GLD, 
RSFBLK, ERRLOC, 
VSLEDT, EM*NSL, 
INVOPT, ILLCMD, 



Assembly constants 



000012 
000015 
000040 
000007 
000011 
000014 



LF 

CR 

BLANK 

BELL 

TAB 

FF 



12 
15 
40 
07 
11 
14 



iLINE FEED 

i CARRIAGE RETURN 

i ASCI I SPACE 

i ASCII BELL 

i HORIZONTAL TAB 

i FORM FEED 



i 



I 

I 

i 
i 

4 
< 
I 



f 
I 



i 

I 
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58 000054 COMMA = 54 ; COMMA 

59 000400 BLKWDS = 256. > # OF WORDS IN DISK BLOCK 

60 132500 WLDNAM = 132500 i RAD50 /*/ (WILDCARD) 

61 000035 R50AST = 35 ; RAD50 / */ (WILDCARD UNIT #> 



I 
I 
I 

i 

f 
i 
f 

i 
i 
« 

€ 

i 

< 



4 
C 
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TSKM2B 
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3 






4 


000000 


000000 


5 


000002 


000000 


6 




000003' 


7 


000004 




8 


000014 


000000 


9 






10 






11 






12 


000016 


000000 


13 


000020 


000000 


14 


000022 


ooooooc 


15 


000024 


042641 014716 


16 






17 






18 






19 


000030 


000 


20 


000031 


00 i 


21 


000032 


000000 


22 


000034 


000000 


23 


000036 


000000 


24 


000040 


000000 


25 


000042 


oooooo 


26 


000044 


ooooooc 


27 






28 






29 






30 


000046 


000 126 


31 


000050 


000017 


32 


000052 


oooooo 


33 


000054 


oooooo 


34 


000056 


0000000 


35 






36 






37 






38 


000060 


000 117 


39 


000062 


oooooo 


40 


000064 


000001 


41 






42 






43 






44 


000066 


000 126 


45 


000070 


000002 


46 


000072 


000001 


47 






48 






49 






50 


000074 


072 040 




000077 


000 


51 


000100 





52 



> Data 


areas 




KFLAG; 


. WORD 





KCODE: 


. WORD 





KTYPE 


5= 


KCODE+1 


PSFNAM: 


. BLKW 


4 


RCLPTR: 


. WORD 






i Flags set during parsing 

j Type and code value 

i Key type code is in upper byte of KCODE 

; Local copy of PLAS region swap file name 

; Ptr to save area for RECALL command 



Region definition block for key definition region 



KRDB: .WORD 

. WORD 

. WORD RS. OBL I RS. CQR ! RS. PVT 

. RAD50 /KEYDEF/ 



jWill get addr of region control blk 
;# 64-byte blocks needed for region 
i Status flags 
i Reg ion name 



Window definition block ut>ed to map PAR 1 to key definition region 

KWDB: .BYTE iWill get windoui ID 

Select PAR 1 
Will get base virtual address 

# 64-fayte blocks for window 
Addr of region control block 
Offset into region of tuindou) base 

# 64-byte blocks to map 
Status flags 

Emt arg block to copy key definition data from our parent job 



> Parent job number 

; Page number of data 

; Address of destination buffer 



. BYTE 





. BYTE 


1 


. WORD 





. WORD 





. WORD 





. WORD 





. WORD 





. WORD 


WS. MAP 



EMTUKC: 


. BYTE 


0. 126 




. WORD 


17 




. WORD 







. WORD 







. WORD 


BLKO 



Emt arg block to set a TT read timeout 



RDTIME: BYTE 0,117 
. WORD 
. WORD 1 



J Timeout value (0.5 second units) 
/Timeout signal character 



Emt arq block to log off and drop DTR after short time 
0, 126 



HNGEMT: . BYTE 
. WORD 
. WORD 

Byte data 

200 COLSPC: . ASCIZ 



i Time before DTR dropped 



KTEXT: 



BLKB 
EVEN 



/: /<200> 
80. 



j Key definition text string 



I 
I 
f 



I 

I 

I 

i 
I 
I 
i 
I 
I 
< 

i 



i 
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i 

ci. 

3 
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5 

6 

7 

8 
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12 

A n 

i.x3 

14 
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21 
22 

24 
25 
26 
27 
28 
29 
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36 
37 
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42 
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53 
54 
55 
56 
57 



Macro to cause a fatal error message to be printed. 

. MACRO FERR MSG 

MOV R5, -(SP) 

MOV MSG, R5 

CALL FPRINT 

MOV (SP)+, R5 

. ENDM FERR 



Macro to print a fatal error message* clean up 
and then jump to RDCND. 

. MACRO FABORT MSG 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



Macro to print a warning message 

. MACRO FWARN MSG 

MOV R5, -<SP> 

MOV MSG, R5 

CALL PRTWRN 

MOV (SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name = 1 to 4 character table name. 

NA = Number of arguments per table entry. 

. MACRO TBLDEF NAME, NA 

NARGS = NA 

. CSECT CMDV2B 

NAME'HD: .WORD 2*NA 

. ENDM TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG = Ascii name 

A, B, C = Set of option parameters to store in table with name. 

. MACRO CMDDEF STRNG, A> B, C 
. CSECT NAME2B 



i POINTER TO NAME STRING 





. ASCIZ 


/STRNG/ 








. CSECT 


CMDV2B 








. WORD 


L 




> 




. WORD 


A 






I IF 


GE, <NARGS-2> 


. WORD 


B 


IIF 


QE. <NARGS-3> 


. WORD 


C 




. ENDM 


CMDDEF 







I 
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59 ; Macro to end a set of table entries. 

60 ■> 

61 . MACRO TBLEND 

62 . CSECT CMDV2B 

63 . WORD O 

64 . CSECT TSKM2B 

65 . ENDM TBLEND 



TSKIi2B 
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1 

3 

4 000220 

5 000002 

6 000006 
7 

8 

9 

10 

11 000220 

12 000012 

.1 i— 1 j^ 1^ f^ jii* j»n f\ 

1 3 uuu02u 

14 000026 

15 000034 

16 000042 

17 000050 
IS 000056 
19 000064 



j Define initial qualifiers for the DEFINE command. 



TBLDEF DEF, 1 
CMDDEF KEY, DEFKEY 
TBLEND 



Define qualifiers for the DEFINE/KEY command. 

TBLDEF KEY, 2 

CMDDEF ECHO, KEYSOP, KF«ECO 

CMDDEF NuE*CHu» KEYROF/ KF*ECu 

CMDDEF TER*MINATE, KEYSOP, KF*TRM 

CMDDEF NOT*ERMINATE, KEYROP, KF*TRM 

CMDDEF GO»LD, KEYTYP, KT*GLD 

CMDDEF NOO#OLD, KEYTYP, KT*NRM 

CMDDEF LET*TER, KEYTYP.. KT«LET 
TBLEND 



i 
4 
I 

f 

< 
( 
I 
C 
I 
i 
i 
i 

i 

I 

i 
i 
f 
t 
( 
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1 


2 




t 


3 




1 


4 


000220 


1 1 


5 


000070 




6 


000074 


I . 


7 


000100 


r M 


8 


000104 




9 


000110 




10 


000114 




11 


000120 




12 


000124 




13 


000130 




14 


000134 




15 


000140 




16 


000144 


1 < 


17 


000150 


► 


IS 


000154 




19 


000160 


i c 


20 


000164 


\ 


21 


000170 


\ 


22 


000174 




23 


000200 


\ 


24 


000204 




25 


000210 


1 f 


26 


000214 




27 


000220 




28 


000224 




29 


000230 




30 


000234 




31 


000240 




32 


000244 




33 


000250 


1 


34 


000254 


i ' 


35 


000260 


f 


36 


000264 




37 


000270 




38 


000274 




39 


000300 




40 


000304 




41 


000310 




42 


000314 


i 


43 


000320 




44 


000324 




45 


000330 




46 


000334 




47 


000340 




48 


000344 


1 . 


49 


000350 




50 


000354 




51 


000360 




52 


000364 


1 * 


53 


000370 




54 


000374 


1 


55 


000400 




56 


000404 


1 


57 


000410 



Define names of keys and associated code values. 



TBLDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 



KNM, 1 

PFl, KC*PF1 

PF2, KC*PF2 

PF3, KC*PF3 

PF4, KC*PF4 

KPO, KC*KP0 

KPl, KC$KP1 

KP2. KC*KP2 

KP3, KC*KP3 

KP4, KC*KP4 

KP5, KC*KP5 

KP6> KC*KP6 

KP7, KC«KP7 

KPS, KC*KPS 

KP9, KC*KP9 

0, KC*KPO 

1, KC«KP1 

2, KC«KP2 

3, KC*KP3 

4. KC*KP4 

5, KC*KP5 

6> KC*KP6 

7> KC*KP7 

8, KC*KPS 

9> KC*KP9 

PER*IOD, KC*DOT 

COM*MA, KC*COM 

MIN*US, KC*MIN 

ENT*ER, KC$ENT 

LEFT, KC*LFT 

RIGHT, KC*R IT 

UP, KC*UP 

DO, KC*F16 

DOWN, KC«DWN 

FIND, KC*E1 

<INS*ERT-HERE>, KC*E2 

REM*OVE, KC*E3 

SEL#ECT, KC*E4 

<PREV*-SCRErr:N>, KC«E5 

<NEXT*~SCREEN:>, KC*E6 

El, KC$E1 

E2, KC«E2 

E3, KCSE3 

E4, KC*E4 

E5, KC*E5 

E6, KC*E6 

HELP, KC*F15 

F6, KC«F6 

F7, KC*F7 

F8, KCf F8 

F9, KC*F9 

FIO, KC*F10 

Fll, KC*F 11 
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5S 000414 

59 000420 

60 000424 

61 000430 

62 000434 

63 000440 

64 000444 

65 000450 

66 000454 



CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
CMDDEF 
TBLEND 



F13, 
Fi4, 
F15, 
F16, 
F17, 
FIB, 
F19, 
F20, 



KC*F13 
KC*F14 
KC*F15 
KC*F16 
KC$F17 
KC*F18 
KC*F19 
KC*F20 



i 
I 

C 
4 

i 
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9 


000220 


004767 


OOOOOOG 


10 








11 








12 








13 


000224 


004767 


ooooooe 


14 


000230 


121327 


000057 


15 


000234 


001001 




16 


000236 


005203 




17 








IS 








19 








20 


000240 


012704 


000000 ' 


21 


000244 


004767 


OOOOOOG 


22 


000250 


103401 




23 


000252 


000134 




24 








25 








26 








27 


000254 


005704 




28 


000256 


001404 




29 


000260 






30 


000270 
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. SBTTL DEFINE command 

Process the DEFINE command. 

Inputs: 
Rl = Job index number 
R3 = Pointer to start of qualifiers for DEFINE command. 

CMDDEF: CALL CVTTAB ^ Convert tab and FF chars to spaces 

If 1st character is slash, skip it 

iSkip over anij spact^s 

i Is 1st character- slash? 

• Br if not 

jRoint beyond slash 

Branch off to major processing routines based on first qualifier 



CALL 


SKPSPC 


CMPB 


<R3),#'./ 


BNE 


1* 


INC 


R3 



1$: 



MOV 


#DEFHD, R4 


CALL 


SEARCH 


BC3 


2* 


JMP 


€<R4)+ 



i Invalid keyword 

2f: TST R4 

BEQ 3* 

FAB OR T #AMBOPT 

3*: FABORT #INVOPT 



iPoint to table of options 
i Try to find correct processing routine 
; Br if don't recognize option keyword 
> Enter major processing routine 



; Ambiguous or unrecognized option? 
; Br if unrecognized 
iAmbigious option 
i Inval id option 



I 
I 

€ 
f 

i 
I 

i 

4 
t 

t 
i 

i 
I 

t 

I 
I 
c 



i 
i 

i 
i 



f 
I 

t 

I* 

t 

i 
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SBTTL DEFINE /KEY 



105767 
001004 



0000000 



000316 



000324 



18 
19 
20 
21 
22 
23 
24 
25 
26 

27 000334 

28 000340 

29 000346 
30 

31 
32 

33 000354 

34 000360 
35 

36 
37 

38 000364 

39 000366 
40 

41 
42 
43 

44 000370 

45 000376 

46 000400 

47 000406 

48 000410 

49 000414 

50 000420 

51 000422 

52 000426 

53 000430 

54 000434 

55 000436 

56 000440 

57 000444 



005767 0000000 
001004 



105067 177442 
112767 OOOOOOG 
1 1 2767 OOOOOOC 



177435 
177424 



012704 
004767 



105713 
001456 



000010' 
OOOOOOG 



Define a character string which will be substituted for some 
terminal key. 



i Command format: DEFINE/KEY key string 

i Inputs: 

i R3 = Points past *VKEY" option. 

i 

DEFKEY: 

i 

i Make sure Single line editor is genned into system 



TSTB VSLEDT 
BNE 4* 
FABORT #EM*NSL 



J Is SL available? 

; Br if yes 

J SL is not available 



See if any user-defined keys are allowed 



4*: TST VKEYMX 
BNE 5« 
FABORT #EM*KNS 

Initialize some values 



CLRB 
MOVE 
MOVB 



KCODE 
#KT*NRM, KTYPE 



j Are any user-defined keys allowed? 

; Br if yes 

i User-defined keys not supported 



! No key code yet 

; Default to normal key type 



#KF*TRM!KF«ECO, KFLAS ; Initialize flags 
Process any options 



MOV 



#KEYHD, R4 
OPTLST 



jPoint to option list 
i Process the options 



R3 should now be pointing to the key name 



TSTB 
BEQ 



<R3) 
20* 



iWas something specified? 
; Br if not 



126727 
001404 
126727 
001031 
004767 
121327 
001413 
121327 
001410 
112367 
111300 
001424 
120027 
001421 



177407 

177377 

OOOOOOG 
000047 

000042 

177346 

000040 



OOOOOOG 
OOOOOOG 



1*: 



If the /LETTER or /GOLDLETTER qualifiers were specified, the key 
is a single letter. 

Key type = letter? 

Br if yes 

Key type = goldletter? 

Br if not 

Skip up to start of string 

Is letter enclosed in quotes? 

Br if yes 

Br if yes 

Get the letter 

Get following letter 

Br if null 

Blank? 

Br if yes 



CMPB 


KTYPE, #KT*LET ; 


BEQ 


1* J 


CMPB 


KTYPE, #KT*GLT ; 


BNE 


3* i 


CALL 


SKPSPC i 


CMPB 


<R3),#47 i 


BEQ 


6* ; 


CMPB 


(R3),#42 


BEQ 


6* ; 


MOVB 


<R3)+, KCODE 5 


MOVB 


<R3),R0 i 


BEQ 


2* ; 


CMPB 


RO, #' ; 


BEQ 


2* i 



I 
I 
c 
I 

i 
i 



i 
I 
I 

i 



) i 

I 

I ff 
f 

:< 

I < 
( 
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58 


000446 


000432 




59 


000450 


004767 


OOOOOOG 


60 


000454 


020027 


000001 


61 


000460 


001025 




62 


000462 


1 1 6767 


OOOOOOG 177312 


63 


000470 


000407 




64 








65 








66 








67 


000472 


012704 


000066 ' 


68 


000476 


004767 


OOOOOOG 


69 


000502 


103414 




70 


000504 


111467 


177272 


71 








72 








73 








74 


000510 


004767 


000346 


75 








76 








77 








78 


000514 


105767 


177360 


79 


000520 


001523 




80 


000522 


000443 




81 








82 








83 








84 


000524 






85 








86 








87 








88 


000534 







6*: 



BR 


21* 


CALL 


ACRTXT 


CMP 


RO, #1 


BNE 


21* 


MOVE 


BLKO> KCODE 


BR 


2* 



; Not single letter 

i Accrue the letter 

; Should have gotten exactly 1 char 

; Br if not 

i Save the letter as key code 



Convert key name into key code 



3*: 



MOV 


#KNMHD, R4 


CALL 


SEARCH 


BCS 


21* 


MOVE 


<R4>,KC0DE 



; Point to key name table 

i Try to translate key name 

i Br if can't recognize key name 

; Set code value for key 

> 

j Accrue the associated text string and store into KTEXT 

2*: CALL KEYTXT i Accrue text string 

■> If the associated text string is null, we are deleting the definition 

> 

Is string null? 

Delete this key definition 

Add this key definition 



TSTB 


KTEXT 


BEQ 


KEYDEL 


BR 


KEYADD 



.; Invalid command syntax 
20*: FABORT #ILLCMD 
; Unrecognized key name 
21*: FABORT #EM*KNU 



> Invalid command 



{Unrecognized key name 



I 
I 

I 
I 

i 

I 

I 

i 

€ 
f 

C 

( 



i 

I. 
I < 



4 
C 



f 

I 
< 

< 

I ( 

I . 

I 
) * 

t 
f 

I 

^ I 

I 
» I 

« 

i i 

i 
i 

i 
i 



TSKM2B 
KEYSOP 
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Set key definition option flags 



1 
2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



000544 151467 177230 
000550 000207 



000552 141467 177222 
000556 000207 



. SB i TL KtYSDP - — Set key definition option flags 

Set some key definition option flag. 

KEYSOP: BISB <R4),KFLAG J Set option flag 
RETURN 

. SBTTL KEYROP — Reset key definition option flags 

; Reset (turn off) some key definition option. 

i 

<R4)#KFLAG > Reset option flag 



KEYROP: BICB 

RETURN 



000560 111400 



.SBTTL KEYTYP — Bet key definition type 
Set type of key being defined (Normali Gold/ etc. ) 
KEYTYP; MOVB (R4),R0 > Get specified type 

Specially handle /GOLD with /LETTER 



000562 120027 OOOOOOQ 

000566 001005 

000570 126727 177207 OOOOOOG 

000576 001012 

000600 000407 

000602 120027 OOOOOOG 1*: 

000606 001006 

000610 126727 177167 OOOOOOG 

000616 001002 

000620 112700 OOOOOOG 3*: 



CMPB 


RO, #KT*GLD 


BNE 


1* 


CMPB 


KTYPE, #KT$LET 


BNE 


2* 


BR 


3« 


CMPB 


RO, #KT*LET 


BNE 


2* 


CMPB 


KTYPE, #KT*GLD 


BNE 


2* 


MOVB 


#KT*GLT, RO 



000624 110067 177153 



000630 000207 



Set new key type 
2*: MOVB RO, KTYPE 
Fini shed 

RETURN 



Is type /GOLD? 

Br if not 

Is current type /LETTER? 

Br if not 

J Is type /LETTER? 

J Br if not 

i Is current type /GOLD? 

i Br if not 

i Set type to gold-letter 



; Set key type 



( 
I 
f 
< 

i 

i 

i 
I 
* 

i 

i 
i 
i 

f 

( 
i 

i 



I 
I 



TSKM2B 
KEYADD 



2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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Add a new key definition 

, oB I i L= KEY Aju/D ' — Ad d 3 neuj Key deTinition 

Add a new key definition. 

Inputs: 
KCODE = Key character code <KC*xxx). 
KTYPE = Key type code <KT*xxx). 
KTEXT = Asciz string to be defined for key. 

KEYADD: 

Don't allom /NOECHO to be specified with /NOTERMINATE 

BIT #KF*ECO!KF*TRM, KFLAO J Either ECHO or TERMINATE specified' 

BNE 5* iBr if yes 

FABORT #EM«KNT ; Can't have both NOECHO and NOTERMINATE 

Create a PLAS region for key definitions if me don't already have one 



000632 



000632 032767 OOOOOOC 177140 

000640 001004 

000642 



000652 005767 0000000 

000656 001003 

000660 004767 000374 

000664 000402 



000666 004767 000366 



000672 016700 177104 
000676 004767 000310 
000702 103012 



000704 005000 

000706 004767 000300 

000712 103006 



000714 004767 000672 
000720 



5*: 



TST 


KEYRCB 


BNE 


1* 


CALL 


KEYREQ 


BR 


4* 



i Do we have a key regionT' 

i Br if yes 

) Create PLAS region and map to it 



Set up PAR 1 to map to the key region 

1*: CALL KEYREG ? Map a par to the key region 

Try to find an existing definition for this key 

4*: MOV KCODE. RO ; Get key code 

i Try to find existing definition 
iBr if found existing entry 



MOV 


KCODE. RO 


CALL 


KEYSRC 


BCC 


2$ 



Try to find a free entry 



CLR 


RO 


CALL 


KEYSRC 


BCC 


2* 



Error — No free entries 

CALL KEYUMP 
FABORT #EM*KTF 



i Look for free entry 
j Br if found free entry 



; Unmap par 
jKey table full 



The entry to use is pointed to by R2. 
Make the entry. 



000730 016762 177046 0000000 2*: 

000736 116762 177036 0000000 

000744 062702 OOOOOOG 

000750 012703 000100' 

000754 112322 3^: 

000756 001376 



MOV 

MOVB 

ADD 

MOV 

MOVB 

BNE 

Finished 



KCODE, KD*C0D<R2); Save key code 

KFLAG. KD*FLG<R2); Save option flags 

#KD*TXT. R2 ; Point to area for text string 

#KTEXT, R3 

(R3)+, (R2.>+ i Store the string 

3* 



I 

c 

I 



i 
i 

I 
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KEYADD — Add a new key definition 

58 000760 004767 000626 CALL KEYUMP ; Unmap par 

59 000764 000167 OOOOOOG JMP RDCMD 



4 
t 



005767 
001430 



OOOOOOG 



004767 000256 



176774 
000200 



TSKM2B — Keyboard DEFINE Comma MACRO 
KEYDEL — Delete a key definition 



3 

4 

5 000770 

6 

7 

8 

9 000770 
10 000774 
11 
12 
13 

14 000776 
15 

16 
17 

15 001002 

19 001006 

20 001012 
21 

22 

23 

24 001014 

25 

26 

27 

28 001020 

29 001024 

30 001030 

31 001034 

32 001036 

33 001042 
34 

35 
36 
37 

38 001044 

39 001050 
40 

41 

42 

43 001052 

44 

45 

46 

47 001056 



016700 
004767 
103417 



00506J 



012702 
016703 
005762 
001006 
062702 
077306 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



004767 
000402 



00061; 



004767 000534 



000167 OOOOOOG 
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. SBTTL KEYDEL — Delete a key definition 
Delete a key definition. 
KEYDEL: 

See if there is any key region now. 



TST 
BEQ 



KEYRCB 
9* 



; Any key definitions nouj?" 
j Br if not 



Set up par to map to the key region 

CALL KEYREG ; Map a par to the key region 

Try to find entry for specified key 

i Get key code 

i Try to find existing key definition 

j Br if key not defined 

We found the key definition. Mark it as free. 

CLR KD*C0D<R2) i Say this key no longer defined 

See if there are any remaining key definitions 



MOV 


KCODE, RO 


CALL 


KEYSRC 


BCS 


8* 



1«: 



MOV #VPAR1,R2 

MOV VKEYMX, R3 

TST KD*C0D(R2) 

BNE 8* 

ADD #KD**SZ, R2 

SOB R3, 1* 



Point to 1st key definition entry 

Get max # key entries 

Is this key entry used? 

Br if yes 

Point to next key entry 

Loop if more to check 



There are no remaining key definitions. 
Delete the key region. 



CALL 
BR 



KEYELR 
9* 



Eliminate the key definition region 



Unmap the par 
8«: CALL KEYUMP 

Finished 
?*: JMP RDCMD 



I 

c 



Unmap the par 



I 
c 
I 
i 
i 






I 

I ( 

I 

I 



TSKM2B ■ 


— Keyboard DEFI 


NE Comma 


KEYTXT - 


— Accrue key de 


f inition 


i 

2 








3 








4 








5 








6 








7 








8 








9 








10 








11 


001062 


010246 




12 


001064 


105067 


177010 


13 








14 








15 








16 


001070 


004767 


OOOOOOG 


17 


001074 


121327 


000075 


18 


001100 


001003 




19 


001102 


005203 




20 


001104 


004767 


OOOOOOG 


21 








22 








23 








24 


001110 


111300 




25 


001112 


001431 




26 


001114 


120027 


000047 


27 


001120 


001403 




28 


001122 


120027 


000042 


29 


001126 


001014 




30 








31 








32 








33 


001130 


004767 


ooooooe 


34 


001134 


020027 


177777G 


35 


001140 


101020 




36 


001142 


012700 


OOOOOOG 


37 


001146 


012702 


000100' 


38 


001152 


112022 




39 


001154 


001376 




40 


001156 


000407 




41 








42 








43 








44 


001160 


012702 


000100' 


45 


001164 


020227 


ooooooe 


46 


001170 


101004 




47 


001172 


112322 




48 


001174 


001373 




49 








50 








51 








52 


001176 


012602 




53 


001200 


000207 




54 








55 








56 








57 


001202 
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string 

. 3BTTL KEYTXT — Accrue key definition string 



Accrue the text string which comprises a key definition. 



Inputs: 
R3 = Pointer to start of text string 

Outputs: 
KTEXT = String in astiz form. 



KEYTXT: MOV 
CLRB 



R2» -<SP) 
KTEXT 



Skip up to start of string 



CALL 


SKPSPC 


CMPB 


<R3),#' = 


BNE 


1* 


INC 


R3 


CALL 


SKPSPC 



; Initiallu sau no strina accrued 



iSkip over any spaces 

j Was equal sign specified before string? 

; Br if not 

iSkip past equal sign 

iSkip up to string start 



See if the string is enclosed in quote marks 



1*: 



MOVE 


<R3),R0 


BEQ 


7* 


CMPB 


RO, #47 


BEQ 


2* 


CMPB 


RO, #42 


BNE 


3* 



j Get 1st char of string 

i Br if no string specified 

i Single quote? 

J Br if yes 

i Double quote? 

} Br if not 



Accrue a string that is enclosed in quotes 



?$: 



4$: 



CALL 


ACRSTR 


CMP 


RO, #KEYMXT-1 


BHI 


5* 


MOV 


#BLKO, RO 


MOV 


#KTEXT, R2 


MOVE 


<R0)+, <R2) + 


BNE 


4* 


BR 


9* 



; Accrue the string 

; Is string too long? 

i Br if yes 

iPoint to buffer with accrued string 

; Point to buffer where uie want result 

j Move the string 

i Loop till null moved 



Accrue a string that is not enclosed in quotes 



3*: 
6$: 



MOV 


#KTEXT, R2 


CMP 


R2, #KTEXT-+-K 


BHI 


5* 


MOVE 


<R3)+, <R2>+ 


BNE 


6* 


Finished 




MOV 


(SP)+>R2 


RETURN 





J Point to result area 
'; Is string too long? 
i Br if yes 

i Move a character to buffer 
; Loop if more to move 



9$: 



String is too long 
5*: FABORT #EM«STL 



i String too long 



i 

I 
f 

( 

i 
i 



c 
< 
I 

( 

4 
< 

i 

i 
c 






TSKM2B ~ 
KEYSRC - 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 



- Keyboard DEFINE Comma MACRO 
Search for key definition 



OOJ 



14 

15 

16 

17 001214 

IS 001220 

19 

21 

DO 



23 
24 
25 
26 



00 
00 
00 

oo 

00 
27 00 
28 
29 
30 
31 00 



1222 
1226 
1232 
1236 
1240 
1244 



1246 
1250 






005767 
001412 



012702 
016703 
020062 
QO1405 
062702 
077306 



000261 
000401 



0000000 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



32 00 

33 

34 

35 

36 001252 000241 

37 

38 

39 

40 001254 012603 

41 001256 000207 
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. SBTTL KEYSRC — Search for key definition 

Search the key definitions for a specified key code and type. 

Inputs: 
RO = Key type and code 

Outputs: 
C-flag cleared ==> Found key definition. 
C-flag set ==> Key is not defined. 
R2 = Pointer to key definition if it is found. 

See if there ars any defined keys 



TST 
BEQ 



KEYRCB 
7* 



; Are there any defined keys? 
; Br if not 



Begin loop to search for specified key 



1*: 



MOV #VPAR1,R2 

MOV VKEYMX, R3 

CMP RO, KD*C0D<R2) 

BEQ 2« 

ADD #KD*«SZ> R2 

SOB R3, 1* 

Key is not currently defined 



7*: 



SEC 

BR 



Point to 1st key definition block 

Get # of key entries 

Is this the one u»e ujantT' 

Br if yes 

Point to next key def block 

Loop if more to check 



Signal failure on return 



9* 



i We found the key definition 



2*: 



9*: 



CLC 
Finished 



Signal success on return 



MOV <SP)+, R3 
RETURN 



I 

I 

I 
I 

I 
< 
f 
t 

i 
i 
4 
€ 
€ 

4 



I 
t 



« 

I 
, ( 

I 
f 

• i 

I 

I 
\ 

I ( 

I 
I i 

i 

( 

I 1 



TSKM2B 
KEYREG 
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Create PLAS region for key definitions 



a 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. 3BTTL KEYREQ — Create FLAS region for key definitions 

Try to associate with an existing key definition region. 
Create a new region if one does not already exist. 
Mapping is set up to access the key region. 



001260 010246 
001262 010346 



001264 012767 OOOOOOC 00000 IC 

001272 016703 OOOOOOG 

001276 070327 OOOOOOG 

001302 062703 000077 

001306 072327 177772 

001312 010367 OOOOOIC 



001316 

001336 103435 

001340 032767 OOOOOOG OOOOOIC 

001346 001431 



001350 016700 OOOOOIC 
001354 010067 OOOOOOG 
001360 016067 OOOOOOG OOOOOOG 



001366 004767 000104 



001372 032767 OOOOOOG OOOOOIC 
001400 001411 



001402 012702 OOOOOOG 

001406 016700 OOOOOOG 

001412 005062 OOOOOOG 

001416 062702 OOOOOOG 
077005 



001424 012603 
001426 012602 
001430 000207 



KEYREG: MOV 
MOV 



R2. -(SP) 
R3, -<SP) 



Set up region definition block for region creation 



MOV 
MOV 
MUL 
ADD 
ASH 
MOV 



#<RS. GBL.'RS. CGRIRS. PVT>, KRDB+R. GSTS ilnit status flags 



VKEYMX, R3 

#KD**SZ» R3 

#63. , R3 

#-6. , R3 

R3, KRDB+R. GSIZ 



iGet man # key definitions 
i Time size of each entry 
; Round up to next block size 
; Convert to # 64~byte blocks 
i Set size of region 



Try to create the region 



. CRRG 
BCS 
BIT 
BEQ 



#XAREA, #KRDB 
10* 



i Try to create the region 
i Br if cannot create region 

#RS. CRR, KRDB+R. GSTS ; Was region successfully created? 

10* » Br if not 



Save information from the region definition block 



MOV 
MOV 
MOV 



KRDB+R. GID> RO ; Get address of region control block 
RO. KEYRCB j Save address of region control block 
RC*BAS<RO) * KEYPARi Save mapping value to access region 



Set up mapping to access the region 

CALL KEYMAP » Map PAR 1 to the region 

If we just created a new region* initialize it. 

BIT #RS. MEW, KRDB+R. GSTS .:Did we just create the region? 
BEQ 9* ; Br if not 

Say no key definitions exist in region 



1*: 



MOV 
MOV 
CLR 
ADD 
SOB 

Finished 



9*: 



MOV 
MOV 
RETURN 



#VPAR1, R2 
VKEYMX, RO 
KD*C0D<R2) 
#KD**SZ> R2 
RO. 1* 



< SP ) +, R3 
<SP)+, R2 



Get pointer to 1st entry 
Get # entries 
Say this entry is free 
Point to next entry 
Mark all entries as free 



Error: Unable to create region 

If we are trying to init a virtual line <*KINIT not set yet)» 

just print a warning. 



^ 
c 
f 

I 
i 

< 
I 

I 
I 
4 
4 
I 
( 
( 



4 
( 
I 



I 
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KEYREG — Create PLAS region for key definitions 



58 

59 001432 

60 001436 

61 001444 

62 001446 

63 001462 

64 001464 
65 

66 
67 
68 
69 001466 



116702 
032762 
001010 

000261 
000757 



OOOOOOG 
OOOOOOG OOOOOOG 



10*: 



MOVB 

BIT 

BNE 

FWARN 

SEC 

BR 



CORUSR, R2 
#*KINIT, LSW<R2) 
11* 
#EM*KCR 

9* 



Page 13-1 



iOet our job index 

i Are tue trying to init virtual line? 

; Abort if not. If initing virtj just warn 

i Warn that keys won't work 

i Flag error 

; And return to INIUKD 



I 
f 
f 



If not trying to copy key definitions to a virtual line, 
then abort. 



11*: 



FABORT #EM*KCR 



; Cannot create region 



» ( 



» ( 



I 
f 

i 
< 
t 
I 

( 

i 
i 
t 



* 

t 
i 

C 



1 

i < 

I 

f 

I 

i 
i 
< 

I 

c 

< 

< 

c 



TSKM2B - 
KEYMAP - 



d 

3 
4 
5 
6 

7 

e 

9 
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001476 010346 



001500 

10 001506 

11 001514 

12 001520 

1 3 00 i 524 

14 001530 

15 001534 

16 001540 
17 

IS 
19 

20 001544 

21 001564 

22 001566 

23 001574 
24 

25 
26 

28 001600 

29 

30 

31 

32 001602 



012767 
016767 
016703 
070327 
062703 
072327 
010367 
010367 



0000000 00000 IC 

0000000 00000 IC 

OOOOOOG 

0000000 

000077 

177772 

00000 IC 

00000 IC 



. 3BTTL KEYMAP — Map FAR 1 to key definition region 

; Map PAR 1 (address range 20000 to 37777) to the key definition region. 

KEYMAP: MOV R3, -(SP) 

Initialize window definition block 

MOV #WS. MAP, KWDB+W. NSTS ; Set status flags 

MOV KEYRCB, KWDB+W. NRIB ; Set address of region control block 

MOV VKEYMX> R3 J Get max # key definitions 

MUL #KD**SZ> R3 ; Time size of each entry 

ADD #63. , R3 * Round up to next block size 

ASH #-6. , R3 i Convert to # 64-byte blocks 

MOV R3, KWDB+W. NSI2 ; Set size of window 

MOV R3, KWDB+W. NLEN 

Try to create and map the window 



103406 
032767 
001402 



012603 
000207 



OOOOOOG 00000 IC 



. CRAW 
BCS 
BIT 
BEQ 



Fi?ii iihed 



MOV 
RETURN 



#XAREA, #KWDB ; Try to create the window 

10* > Br if cannot create the window 

#WS. CRW, KWDB+W. WSTS ; Was window successfully created? 

10* ; Br if not 



(SP)+>R3 



Error: Unable to create the window 
10*: FABORT #EM*KWC i Unable to create window 



i 
i 
I 

I 
I 
« 
( 
I 
I 
I 
I 
( 
< 
I 
I 
i 
i 



i 



c 

I 



I 

: I 



I ( 

I 

\ i 
f 
I 
t 
I 



» 



TSKM2B 
KEYUMP 
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— Unmap the key definition region 



1 

CL 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 



001612 



001612 



. SBTTL KEYUMP — Unmap the key definition region 
; Eliminate the windou used to access the key definition region. 
KEYUMP: 
i Eliminate the window 

. ELAW #XAREA, #KWDB i Eliminate the window 

} 

; Disassociate from the region but don't delete it 



r X c / la/ 



OOOOOOC 00000 iC 



001640 



001660 000207 



MOV 
. ELRG 

Fini shed 

RETURN 



#RS. GBL!R3. PVT, KRDB+R. GSTS i Set status flags 
#XAREA, #KRDB i Di sassoc iate the region 



i 
I 
I 



i 



I 
C 

i 



< 
I 



TSKM2B 
KEYELR 
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— Eliminate the key definition region 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

le 

19 
20 
21 

22 
23 
24 



001662 



001662 



001702 012767 OOOOOOC OOOOOiC 
001710 



001730 005067 0000000 
001734 005067 OOOOOOG 



. SBT7L KEYELR — Eliminate the key definition region 

f ——————— — _______ — _ ___ — ___—__————________—__————____ — _______ 

; Eliminate the PLAS region that is used to store key definitions. 

i 

KEYELR: 

i 

; Eliminate the window 
f 

. ELAW #XAREA/ #KWDB j Eliminate the ujindoui 

; Eliminate the region 

i 

MOV #RS. OBL'RS. FVT-RS. EGRiKRDB+R. GST3 i Set status flags 
. ELRG #XAREA, #KRDB i Eliminate the region 



001740 000207 



Say region is gone 



CLR 


KEYRCB 


CLR 


KEYPAR 


Finished 




RETURN 





i Reg ion is gone 



i 



I 
i 
i 

I 

< 
f 
I 

i 
i 

( 
{ 
i 
t 
I 
c 



I 
f 



005767 
001005 



OOOOOOG 



TSKM2B — Keyboard DEFINE Comma 
SHOW KEYS 



3 

4 

5 001742 

6 

7 

S 

9 001742 

10 001746 

11 001750 

12 001756 

4 '-3 
^ »-> 

14 

15 

16 

17 001762 

IS 

19 

20 

21 

22 

23 

24 

26 
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. SBTTL SHOW KEYS 
i Process the SHOW KEYS command. 

i 

SHOKEY: 

f 

i See if there are any defined keys 



000167 OOOOOOG 



004767 177272 



001766 
001772 



001776 
27 002002 
2S 
29 
30 

31 002004 
32 
33 
34 

35 002010 

36 002014 
37 

38 

39 

40 002016 

41 

42 

43 

44 002022 



012702 
016703 



005762 
001402 



OOOOOOG 
OOOOOOG 



OOOOOOG 



004767 000016 



062702 
077310 



OOOOOOG 



004767 177570 



000167 OOOOOOG 



; Are there any defined keys' 

j Br if yes 

i No defined keys 



TST KEYPAR 

BNE 1* 

.PRINT #TM*KND 

JMP RDCMD 

i There are some defined keys. 

i Associated the key region. 

f 

1$: CALL KEYREG ; Associate the key region 

i 

i Begin loop to print information for each defined key 



tiOV #VPAR1,R2 
MOV VKEYMX, R3 



; Get address of first key entry 
j Get # of key entries 



; See if this key entry is defined 



3$: TST KD*C0D(R2) 
BEQ 2* 



j Is this key entry defined? 
i Br i f not 



i Print information for this key entry 

i 

CALL KEYPRT i Print info for the key definition 

# 
i See if there are more key entries 



2$: ADD #KD**SZ,R2 
SOB R3, 3* 

i 

i Disassociate the key region 

CALL KEYUMP 
i 

i Finished 

i 

JMP RDCMD 



;Point to next key entry 
i Br if more to check 



Disassociate key region 



i 
f 
f 



f 
i 

( 

i 
i 
I 
I 
i 
I 
< 
f 
I 
I 
i 



i 
i 
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3 

4 

5 

6 

7 

S 002026 

9 002030 
10 
11 
12 

3 UKJtiUiSd 

14 002040 

15 002042 

16 002050 

17 002052 

18 002060 

19 002062 

20 002066 
21 

22 
23 

24 002072 

25 002100 

26 002102 

27 002110 

28 002112 

29 002122 

30 002126 

31 002132 

32 002134 

33 002144 

34 002150 

35 002156 

36 002162 

37 002164 

38 002172 

39 002176 

40 002206 

41 002212 
42 

43 

44 

45 002314 

46 

47 

48 

49 002220 

50 002222 

51 002226 

52 002230 

53 002232 

54 002236 

55 002240 

56 002250 

57 002254 



010346 
010546 



001404 
1 26227 
001004 

000404 
012703 
004767 



126227 
001404 
126227 
001041 

116203 
120327 
103014 

062703 

012703 
000405 

012703 

004767 
000402 



010203 
062703 
112305 
001415 
120527 
103006 



. SBTTL KEYPRT — Print key definition 

Print information about a specific key definition. 

Inputs: 
R2 == Pointer to key definition entry 



KEYPRT: MOV 
MOV 



R3, -<SP) 
R5, -(SP) 



OOOOOOG 
OOOOOOG 



000005 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
000040 



000100 
000010 

000011 
OOOOOOG 



OOOOOOG 
OOOOOOG 



If key type is Gold or Gold-letter, print "Gold" 

CMPB KD*TYP<R2),#KT*GLD>Key type gold? 

BEO 1* i Br if yes 

CMPB KD*TYP<R2>.#KT«GLT; Key type gold letter? 

BNE 2* ; Br if not 



1*; 
2$: 



.PRINT #TM*GLD 

BR 3* 

MOV #5. , R3 

CALL PRTSPC 



i Print "Gold " 
; Print 5 spaces 



If key type is letter or goid-letter, key is a single letter 



OOOOOOG 3*: 
OOOOOOG 

4*: 



10*: 
11*: 



KD*TYP(R2)> #KT«LET; Letter? 
4* i Br if yes 

KD*TYP<R2),#KT*GLT; Gold letter? 

Br if not 

Print opening quote 

Get the letter 

Is it a control character?' 

Br if not 

Print up-arroiu 

Convert char to printing value 

Print the character 

Print 8 spaces 

} Print the character 

i Print 9 spaces 

j Print closing quote 

> Print spaces 



CMPB 

BEQ 

CMPB 

BNE 5* 

. TTYOUT # ' " 

MOVB KD*C0D<R2),R3 

CMPB R3, #40 

BHIS 10* 

. TTYOUT #''^ 

ADD #100, R3 

. TTYOUT R3 

MOV #8. . R3 

BR 11* 

. TTYOUT R3 

MOV #9. , R3 

. TTYOUT # ' " 

CALL PRTSPC 

BR 6* 



004767 000060 



We must convert key code into key name 
5*: CALL KEYCOD ; Convert key code into key name 

Now print the key definition string 



OOOOOOG 



000040 



6«: 
S*: 



062705 000100 



7*: 



MOV 


R2, R3 


ADD 


#KD*TXT, R3 


MOVB 


(R3)+, R5 


BEQ 


9* 


CMPB 


R5, #40 


BHIS 


7* 


. TTYOUT 


#136 


ADD 


#100, R5 


. TTYOUT 


R5 



Point to key definition entry 

Point to start of asciz string 

Get next char from string 

Br if hit end of string 

Is this a control character? 

Br if not 

Print carret 

Convert to printing character 

Print the character 



i 
f 

I 

I 

( 
< 

€ 

f 



f 
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58 002262 000761 

59 

60 

61 

62 002264 

63 

64 

65 

66 002272 012605 

67 002274 012603 

68 002276 000207 



oR S$ 
Terminate the print line 
9*: , PRINT #CRLF 
Finished 



Print rest of string 



Terminate the print line 



MOV 
MOV 
RETURN 



<SP>+, R5 
<SP)+, R3 



I 
< 

c 

I 

i 
c 

< 
i 



f 

i 

i 

I 

I ( 



( 



I 

c 

i: 

I 
t I 

i 



I 



I 



i 



TSKM2B 
KEYCOD 
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— Print key name based on code 

. 3BTTL KEYCOD — Print key name based on code 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



002300 010346 



002302 



>546 



002304 012705 000070 



002310 126265 OOOOOOG 000002 

002316 001405 

002320 062705 000004 

002324 005715 

002326 001370 

002330 000416 



002332 011505 

002334 012703 000014 

002340 112500 

002342 001407 

002344 120027 000052 

002350 001773 

002352 

002356 005303 

002360 000767 



002362 004767 OOOOOOG 



002366 012605 
002370 012603 

t^ 1^ f^jm^'^r'^ «n f^ y^ /^ y% •"« 



Print the name of a key based on the key code in the current key 
descriptor block. The key name is printed in a 12 character field. 



Inputs: 
R2 = Pointer to key descriptor block 



KEYCOD: MOV 
MOV 



R3, -<SP) 
R5, -(3P) 



CMPB 


KD*COD 


BEQ 


2* 


ADD 


#4. , R5 


TST 


<R5) 


BNE 


1* 


BR 


9* 



Enter loop to find the entry for this key code 

MOV #KNMHD+-2, R5 i Point to first entry in table 

See if this is the entry we want 

1*: CMPB KD*C0D<R2), 2<R5)i Is this the entry we want? 

i Br if yes 

/Point to next entry 
»Is there another entry 
•> Br if yes 
J Should never happen 

We found the entry. Print the key name. 

.iQo-t nQijTteTr -ho key name string 
Get field size 

Get next character from name 
Br if hit end of name 
Is it an asterisk? 
Skip them 
Print a character 

Say one less fill character needed 
Keep printing 

Reached end of name. Blank fill to end of field. 
4*: CALL PRTSPC /Blank fill rest of field 

Finished 
9*: 



2*: 


MOV 


<R5)/R5 




MOV 


#12. ,R3 


3f: 


MOVB 


(R5>+,R0 




BEQ 


4* 




CMPB 


R0,#'* 




BEQ 


3* 




. TTYOUT 






DEC 


R3 




BR 


3* 



MOV 
MOV 
RETURN 



(SP)+, R5 
(SP)+, R3 



i 
t 

\ 
f 
i 
( 
I 
f 
I 
f 

i 

c 



( I 



t 
I 



» 4 

I 

\ i 

\ 
f 

I f 

i 
^ 

I 

t 
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SB TIL INIUKD 



Init user key definitions from parent job 



3 








4 








5 








6 








7 








8 








9 








10 


002374 


010346 




11 


002376 


010446 




12 
1 1 


002400 


010546 




14 








15 








16 


002402 


010267 


175444 


17 


002406 


005067 


175442 


IS 


002412 


012700 


000046 ' 


19 


002416 


104375 




20 


002420 


103003 




21 


002422 


105737 


OOOOOOG 


22 


002426 


001444 




23 








24 








2t7 








26 








27 








28 


002430 


012702 


OOOOOOG 


29 


002434 


012703 


000004 ' 


30 


002440 


012700 


000004 


31 


002444 


012223 




32 


002446 


077002 




33 








34 








35 








36 


002450 


004767 


176604 


37 


002454 


103431 




38 








39 








40 








41 


002456 


005002 




42 


002460 


005004 




43 


002462 


016705 


0000000 


44 


002466 


070527 


OOOOOOG 


45 


002472 


006205 




46 


002474 


010503 




47 


002476 


020327 


000400 


48 


002502 


101402 




49 


002504 


012703 


000400 


50 


002510 


004767 


000034 


51 


002514 


005202 




52 


002516 


160305 




53 


002520 


003365 




54 








55 








56 








57 


002522 


004767 


177064 



INIUKD is called during the start-up processing for a virtual job 
to copy any user key definions from the parent job. 

Inputs: 
Rl = Current job index number. 
R2 = Index number of parent job. 



INIUKD: MOV 
MOV 
MOV 



R3, -(SP) 
R4, -<SP) 
R5,-<SP) 



See if our parent job has any key definitions 

Set our parent job number 

Clear the block number 

Point to EMT argument block 

Determine if parent has key defs 

Br if it has key defs 

Error code ==> No key defs 

Br if parent has no key defs 

Parent job has user key definitions. 

Copy name of PLAS region swap file to local memory before we 

set up mapping to key region. 



MOV 


R2, EMTUKC+4 


CLR 


EMTUKC+6 


MOV 


#EMTUKC* RO 


EMT 


375 


BCC 


1« 


TSTB 


SttERRLOC 


BEQ 


9* 



1*: MOV #RSFBLK, R2 

MOV #PSFNAM, R3 

MOV #4. , RO 

4*: MOV (R2)+, <R3)+ 

SOB RO, 4* 



* Point to name cell in TSOEN 
iPoint to local name cell 
i Move 4 words 
; Move file spec to local cell 



Initialize local named region to hold our key definitions. 



CALL 
BCS 



KEYREG 
9* 



i Initialize a key def region 

jSkip rest of init (error already reported) 



Begin loop to copy key definition info from parent job 



?$: 



3$: 



CLR 


R2 


CLR 


R4 


MOV 


VKEYMX, R5 


MUL 


#KD**SZ, R5 


ASR 


R5 


MOV 


R5, R3 


CMP 


R3, #256. 


BLOS 


3* 


MOV 


#256. , R3 


CALL 


KEYMOV 


INC 


R2 


SUB 


R3, R5 


BGT 


2* 



Finished copying data 
CALL KEYUMP 



Start uiith page 

Have not opened chan to PLAS swap file 

Get max # key definitions 

Get total # bytes for all key defs 

Get total # words 

Get # words remaining to be moved 

More than 256 left? 

Br if not 

Move 256 words this time 

Move the key data 

Point to next block 

Get # words left to be moved 

Loop if need to move more words 



i Release region mapping 



I 
I 
f 
f 
I 

i 
i 
i 
i 
f 

c 

i 

i 
I 
I 

€ 

i 
i 
i 

I 



I 
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I 



i 
f 



I 

I 

i 



5S 002526 005704 T3T R4 >Did me open chan to PLAS swap file? 

59 002530 001403 BEQ 9* ; Br if not 

60 002532 .CLOSE #1 iClose plas swap file channel 

61 i 

62 ; Finished 
63 

64 002540 012605 9*: MOV (SP)+, R5 g 

65 002542 012604 MOV (SP)+, R4 * 

66 002544 012603 MOV <SP)+, R3 

67 002546 000207 RETURN 



I 
( 
i 



i 

4 



) i 

) 

i 
I 

i 

I 

i 

i 

I 

i 

i 

i 
i 
I 



TSKM2B 
KEYMOV 
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Move key definition data from parent job 



SBTTL KEYMOV 



Move key definition data from parent job 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

■t 'n 
X %3 

14 
15 
16 
17 
18 
19 
20 
21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



002550 010246 
002552 010346 
002554 010546 



002556 010267 175272 

002562 012700 000046' 

002566 104375 

002570 103034 

002572 010005 

002574 060205 



002576 005704 

002600 001012 
002602 

002622 103427 

002624 005204 



002626 



002662 072227 000011 

002666 062702 OOOOOOG 

002672 012705 OOOOOOG 

002676 012522 

002700 077302 



002702 012605 

002704 012603 

002706 012602 

002710 000207 



Move up to one block of key definition data from our parent job 
to our key definition region. 

Inputs: 
R2 = Number of page to be moved. 
R3 = Number of words to move <256 max) 
R4 = 0==>Channel not opened to PLAS swap file; l==>Channel open. 



Outputs: 
R4 = 1== 

KEYMOV: MOV 
MOV 
MOV 



channel opened to plas swap file 

R2, -<SP) 
R3> -(SP) 
R5, -<SP) 



MOV 


R2> EMTUKC+6 


MOV 


#EMTUKC, RO 


EMT 


375 


BCC 


1* 


MOV 


RO, R5 


ADD 


R2, R5 



Try to obtain the data by accessing in-memory image of parent job 

Set # of block we want 

Point to EMT arg block 

Try to copy data from in— memory image 

Br if we got the data 

Save starting block of region in swap file 

Add block within region 

The parent 'ob is not in memory. 

Open a channel to the PLAS swap file unless it is already open. 

TST R4 ; Have we opened a channel to plas swap file? 

BNE 2* J Br if yes 

.LOOKUP #XAREA, #1,#PSFNAM i Open channel to PLAS swap file 

BCS 9* i Br if error on lookup 

INC R4 J Set flag saying channel open 

Read data from plas swap file 
2*: . READW #XAREA, #1, #BLKO, R3, R5 } Read data from plas swap file 

Move data from BLKO to key def region 
1*: 



3$: 



9*: 



ASH 


#9. , R2 


ADD 


#VPAR1, R2 


MOV 


#BLKO, R5 


MOV 


<R5)+, <R2)f 


SOB 


R3, 3* 


Finished 




MOV 


(SP)+, R5 


MOV 


<SP)+.R3 


MOV 


<SP)+, R2 


RETURN 





i Convert block # to byte offset 

i Get virtual address in region 

/Point to current buffer 

i Move the data 

i Loop if more to move 



f 
f 
f 

i 
i 
i 
I 
i 
i 
I 
t 

« 

I 
€ 

4 

I 
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t 
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8 
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10 
11 



002712 
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. SBTTL RECALL command 

Process the RECALL command that is used with the single line editor. 

Inputs: 
Rl = User index number 

R2 = Address of end of command string 
R3 = Address of start of command argument field. 

CMDRCL: 

Error if SL is not turned on 



22 
23 
24 



1 J 

14 002712 

15 002720 

16 002722 
17 

IS 
19 

20 002732 

21 002736 
002742 
002746 
002752 

D 
26 
27 

28 002756 

29 002762 
30 

31 
32 

33 002766 

34 002770 

35 002772 

36 002776 
37 

38 
39 

40 003002 

41 003006 

42 003010 

43 003016 

44 003020 

45 003026 

46 003030 

47 003040 
48 

49 
50 

51 003044 

52 003050 

53 003052 

54 003056 

55 003060 



032761 
00 1 004 



OOOOOOG 0000000 



016704 
010467 
004767 
010467 
010467 



004767 
004767 



105713 
001004 
012701 
000167 



121327 
001016 
126327 
001502 
126327 
001404 



OOOOOOG 

175052 

000534 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



000001 
000100 



000057 
000001 
000001 



000101 
000103 



000167 OOOOOOG 



121327 
103432 
121 327 
101027 
000400 



000060 
000071 



BIT #*SLON, LSW7(R1) 

BNE 1* 

FAB OR T #EM*SLO 



Is Single line editor turned on? 

Br if yes 

SL not turned on 



Advance over the RECALL command 



1*: 



MOV 


SLSPTR, R4 


MOV 


R4, RCLPTR 


CALL 


SLMVUP 


MOV 


R4, SLSPTR 


MOV 


R4. SLLPTR 



i Get ptr to last command (RECALL) 
i Save ptr to RECALL command 
■> Advance to next command 
i Set new pointers 



Convert command arguments to upper case 



CALL 
CALL 



CVTTAB 
CVTUC 



; Convert tabs and FF to spaces 

j Convert lower case letters to upper case 



If command has no arqumentSj treat it like "RECALL 1". 



J Are there any arguments? 
i Br if yes 

i Get command number to recall 
i Go do the recal 1 



TSTB 


(R3) 


BNE 


2* 


MOV 


#1, Rl 


JMP 


RCLVAL 



See if "/ALL" was specified 



L'*: 



CMPB 


(R3),#'/ 


BNE 


3* 


CMPB 


1(R3)>#'A 


BEQ 


RCLALL 


CMPB 


1(R3)>#'C 


BEQ 


4* 



4$: 



FAB OR T #INVOPT 
JMP RDCMD 



Is there a switch present? 

Br if not 

/ALL? 

Br if yes 

/CLEAR? 

Br if yes 

Invalid option 

Ignore /CLEAR 



If the first character is a digits then we are recalling a specific line 

3*: CMPB <R3),#'0 ils this a digit? 

i Br if not 



i Numeric parameter 



CMPB 


<R3),#'0 


BLO 


RCLSTR 


CMPB 


<R3),#'9 


BHI 


RCLSTR 


BR 


RCLNUM 



I 
i 
f 
t 
I 



4 

I 
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I 
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3 








4 


003062 






5 








6 








7 








8 


003062 


004767 


OOOOOOG 


9 


003066 


105700 




10 


003070 


001404 




11 
12 
13 


003072 












14 








15 








16 


003102 


016704 


OOOOOOG 


17 


003106 


005301 




18 


003110 


003406 




19 


003112 


004767 


000364 


20 


003116 


020467 


OOOOOOG 


21 


003122 


001371 




22 


003124 


000402 




23 








24 








25 








26 


003126 


010467 


OOOOOOG 


27 


003132 


000167 


OOOOOOG 



i Recall a command uihose index number is specified. 
RCLNUM: 

Accrue the number 



CALL ACRDEC 

TSTB RO 

BEQ RCLVAL 

FABORT #EM*CSE 



j Accrue the decimal value 
jNull should be the delimiter 
; Br if ok 
i Syntax error 



The index number of the command to recall is in Rl. 
Recall that command. 



/Get ptr to last saved line 

i Need to go back to an earlier line? 

j Br if not 

; Move back to earlier line 

i Wrapped around to beginning? 

i Br if not 

j Nothing to recall 



Set pointer to line to recall when next input is done 



RCLVA 


L: MOV 


SLSPTR,R4 


1$: 


DEC 


Rl 




BLE 


2* 




CALL 


SLMVUP 




CMP 


R4, SLSPTR 




BNE 


1* 




BR 


9* 



2*: 
9*: 



MOV 
JMP 



R4, SLRPTR 
RDCMD 



/Recall this line on next input 



I 



I 

4 

i 

I 

t 



> 



f 



f 

i « 

i 

t 
( 

( 
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1 
2 
3 
4 
5 
6 
7 

e 

9 

•! r\ 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

26 

27 003206 

28 003212 

29 003216 

30 003220 



003136 
003142 



003144 
003146 
003150 
003152 
003154 
003156 
003160 
003162 
003166 
003170 
003174 
003176 
003202 
003204 



016704 
005001 



005201 
010405 
010302 
105712 
001752 
112500 
001412 
020027 
103405 
020027 
101002 
162700 
122200 
00 1 762 



Recall a command by searching for a specific character string. 



OOOOOOG 



RCLSTR; MOV 
CLR 



SLSPTR, R4 
Rl 



i Point to most recently saved command 
; Init command recall index 



Compare target string uiith 1st characters of command 



5$: 



1$: 



000141 



000172 



000040 



4$: 



INC 


Rl 


MDV 


R4, R5 


MOV 


R3, R2 


TSTB 


<R2) 


BEG 


RCLVAL 


MOVB 


<R5)+,R0 


BEQ 


3* 


CMP 


RO, #'a 


BLO 


4* 


CMP 


RO, # ' 7 


BHI 


4* 


SUB 


#40. RO 


CMPB 


(R2)+, RO 


BEO 


1* 



Increment command recall index 

Get ptr to saved command 

Get ptr to target string 

Are we at the end of the target string? 

Br if hit end of target 

Get next char from saved cmd 

Br if hit end of saved cmd 

Cvt lower-case to upper case 



Does target match saved cmd' 
Loop if yes 



004767 000270 

020467 OOOOOOG 

001352 

000167 OOOOOOG 



This command does not match target. 
Advance to the next saved command. 



3«: 



CALL 


SLMVUP 


CMP 


R4, SLSPTR 


BNE 


5* 


JMP 


RDCMD 



i Advance to next saved command 
i Wrapped around to beginning?" 
i Br if not 
iNothing to recall 



i 

I 
f 

i 
i 
i 
I 
( 
I 
f 
i 
{ 
I 
< 

i 
( 



TSKM213 ■ 


— Keyboard DEFINE Comma 


RECALL command 

1 






2 
3 
4 


003224 


016704 


OOOOOOG 


5 


003230 


012705 


000001 


6 


003234 


012703 


000003 


7 


003240 


105767 


OOOOOOG 


e 


003244 


001402 




9 


003246 


004767 


000106 


10 








11 








12 








13 


003252 


004767 


OOOOOOG 


14 








15 








16 








17 


003256 






le 


003264 


010402 




19 


003266 


1 1 2200 




20 


003270 


001410 




21 


003272 






22 


003276 


020227 


OOOOOOG 


23 


003302 


103771 




24 


003304 


012702 


OOOOOOG 


25 


003310 


OO0766 




26 


003312 






27 








28 








29 








30 


003320 


105767 


OOOOOOG 


31 


003324 


001405 




32 


003326 


005305 




33 


003330 


001411 




34 


003332 


004767 


000064 


35 


003336 


000745 




36 


003340 






37 








38 








39 


003340 


004767 


000136 


40 


003344 


005205 




41 


003346 


020467 


174442 


42 


003352 


001337 




43 


003354 


000167 


OOOOOOG 
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Recall all commands 



Display the commands. 



RCLALL: MOV 
MOV 
MOV 
TSTB 
BEQ 
CALL 



SLSPTR, R4 

#1,R5 

#3j R3 

RCLREV 

3* 

FIND20 



Point to most recently saved command 

Initialize command index # 

Set # columns to print 

Display commands in reverse order? 

Br if normal order 

If reverse order, find 20th/Iast command 



Print the command index number 



3$: CALL PRTFIX 

Now print the command text 



1*: 



2$: 



. PRINT #COLSPC 

MOV R4, R2 

MOVE (R2)+>R0 

BEQ 2* 

. TTYOUT 

CMP R2, #SLLEND 

BLO 1* 

MOV #SLLBUF, R2 

BR 1* 

.PRINT #CRLF 

Advance to the next command 



4*: 



B*: 
9*: 



TSTB 


RCLREV 


BEQ 


4* 


DEC 


R5 


BEQ 


9* 


CALL 


SLMVDN 


BR 


3* 


CMP 


R5, #20. 


BHIS 


9* 


CALL 


SLMVUP 


INC 


R5 


CMP 


R4, RCLPTR 


BNE 


3* 


JMP 


RDCMD 



i Print command index number 



Print colon, space 

Get ptr to start of command text 

Get next char to print 

Br if hit end of string 

Print it 

Hit end of buffer? 

Br if not 

Wrap around to the top 

i Print CR-LF 



Normal or reverse order?' 

Br if normal order 

Any commands left to display? 

Br if not 

Else find previous command 

And br back to display it 

Displayed 20 commands? 

That is enough 

Advance ptr to next command 

Inc command index number 

Is there another saved command? 

Br if yes 



I 

f 

\ 

t 



) 



i 



I 
f 
I 
( 

) I 

I 

» ( 

i 

I 

I 



TSKM2B - 


— Keyboard DEFINE Comm 


RECALL { 

1 
2 
3 


:ommancl 












4 








5 








6 








7 








8 








9 








10 








U 








12 


003360 


010246 




13 


003362 


012705 


000001 


14 


003366 


010402 




15 


003370 


004767 


000106 


16 


003374 


020402 




17 


003376 


001405 




18 


003400 


020467 


174410 


19 


003404 


001402 




20 


003406 


005205 




21 








22 








23 


003410 


000767 




24 


003412 


004767 


000004 


25 


003416 


012602 




26 


003420 


000207 
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This routine finds the 20th or last command available in the 3L 
recall buffer. It is used when recalling commands in reverse order. 

Inputs; 

R4 = Pointer to most recent saved command 

Outputs; 

R4 = Pointer to last or 20th commands whichever comes first 
R5 = Number of last command 



Init command index 

Get copy of current command pointer 
Get pointer to previous command 
Is this where we started? 
Br if done 

Is this a saved recall command? 
Don't count recall commands 
Count another command 
Must this be the last? 
Br if so 

Look for more if not 
jBack up to last command 



FIND20: 


MOV 


R2>-(SP) 




MOV 


#1, Rd 




MOV 


R4, R2 


1*; 


CALL 


SLMVUP 




CMP 


R4, R2 




BEQ 


8* 




CMP 


R4, RCLPTR 




BEQ 


8* 




INC 


R5 


i i 


CMP 


R5, #20. 


i i 


BHIS 


9* 




BR 


1* 


8*: 


CALL 


SLMVDN 


9«: 


MOV 
RETURN 


(SP)+, R2 



I 
< 

f 
i 

i 
i 
i 



) 



i 



i 

i 
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RECALL command 
* 






1 

2 
3 








4 








5 








6 








7 








8 








9 








10 








11 








12 


003422 


010246 




13 


003424 


010402 




14 


003426 


005304 




15 








16 








17 








IS 


003430 


020427 


0000000 


19 


003434 


103002 




20 


003436 


012704 


1777770 


21 


003442 


020402 




22 


003444 


001414 




23 


003446 


105714 




24 


003450 


001002 




25 


003452 


OO5304 




26 


003454 


000765 




27 








28 








29 








30 


003456 


020427 


0000000 


31 


003462 


101002 




32 


003464 


012704 


0000000 


33 


003470 


105744 




34 


003472 


001371 




35 


003474 


005204 




36 


003476 


012602 




37 


003500 


000207 





This routine is used to locate the beginning of the subsequent 
command in the SL command buffer. It is used when displaying 
recalled commands in reverse order. 

Inputs: 

R4 = Pointer to beginning of current command 

Outputs: 

R4 = Pointer to next command 



SLMVDN: MOV 
MOV 
DEC 



R2, -<SP) 

R4>R2 

R4 



; Get copy of command pointer 
; Step out of it 



Find the end of the next command 



1*: 



>$: 



CMP 


R4, #SLLBUF 




BHIS 


2* 




MOV 


#<SLLEND-1>, 


R4 


CMP 


R4, R2 




BEG 


9* 




TSTB 


eR4 




BNE 


3* 




DEC 


R4 




BR 


1« 





Past the beginning of the buffer? 

Br if not 

Wrap around if needed 

Back mhere we started? 

Return if so 

Any char here?" 

Br if found a command 

Else back up some more 

And keep looking 



Found the end of a commands find its beginning 



3*: 



4$: 



9*: 



CMP 


R4, #SLLBUF 


BHI 


4* 


MOV 


#SLLEND* R4 


TSTB 


-<R4) 


BNE 


3* 


INC 


R4 


MOV 


( SP ) +, R2 


RETURN 





(Past the beginning of the buffer? 

; Br if not 

; Wrap around if needed 

;A char here? 

(Yes, keep looking for beginning 

;Aha! Past the begin* point back to it 



i 
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I 



i 








2 








3 








4 








5 








6 








7 








8 








7 








10 








11 


003502 


010546 




12 








13 








14 








15 


003504 


010405 




16 


003506 


020527 


0000000 


17 


003512 


103402 




IS 


003514 


012705 


0000000 


19 


003520 


105725 




20 

21 

22 


003522 


001371 










23 








24 


003524 


020527 


OOOOOOG 


25 


003530 


103402 




26 


003532 


012705 


OOOOOOG 


27 


003536 


105725 




28 


003540 


001003 




29 


003542 


020504 




30 


003544 


001367 




31 


003546 


000407 




32 








33 








34 








35 


003550 


020527 


OOOOOOG 


36 


003554 


101002 




37 


003556 


012705 


OOOOOOG 


38 


003562 


005305 




39 








40 








41 








42 


003564 


010504 




43 


003566 


012605 




44 


003570 


000207 





This routine returns a pointer to the previous saved command moving 
in an up-arrow direction. 

Inputs; 
R4 = Pointer to current command. 

Outputs: 
R4 =■ Pointer to previous command. 

SLMVUP: MOV R5, -<SP) 

Skip up to the null at the end of the current command 



1*: 



2$: 



MOV 


R4, R5 


CMP 


R5, #SLLEND 


BLO 


2* 


MOV 


#SLLBUF> R5 


TSTB 


<R5) + 


BNE 


1$ 



Hit end of buffer? 

Br if not 

Wrap around to the top 

Reached null at end of saved command7' 

Br if not 



Now skip over nulls at the end of the command 



3*: 



4*: 



CMP 


R5, #SLLEND 


BLO 


4« 


MOV 


#SLLBUF, R5 


TSTB 


(R5) + 


BNE 


5* 


CMP 


R5, R4 


BNE 


3* 


BR 


9* 



Hit end of buffer? 

Br if not 

Wrap around to the top 

More nulls to skip'' 

Br if not 

Wrapped around to beginning?" 

Br if not 

Nothing to recall 



Point to 1st character of command 



5*: 



6*: 



9$: 



CMP 


R5, #SLLB 


BHI 


6* 


MOV 


#SLLEND. 


DEC 


R5 


Finished 




MOV 


R5, R4 


MOV 


<SP)+, R5 


RETURN 





J At top of buffer now? 

i Br if not 

; Wrap around to bottom 

; Point to 1st char of next command 



i Return pointer in R5 



I 
f 

i 



TSKM2B 
ACCESS 



— Keyboard 
Command 



3 








4 








5 


003572 


004767 


000410 


6 


003576 


103004 




7 


003600 






S 








9 


003610 


004767 


OOOOOOG 


10 


003614 


016704 


OOOOOOQ 


11 








12 








13 








14 


003620 


105713 




15 


003622 


001002 




16 


003624 


000167 


OOOOOOG 


17 








IS 


003630 


020467 


OOOOOOG 


19 


003634 


103404 




20 

21 

22 


003636 






003646 


005764 


OOOOOOG 


23 


003652 


001403 




24 


003654 


062704 


OOOOOOG 


2t7 


003660 


000763 




26 








27 








28 








29 








30 








31 








32 








33 








34 








35 








36 


003662 


004767 


000350 


37 


003666 


004767 


000406 


38 


003672 


103417 




39 


003674 


012700 


000122 


40 


003700 


004767 


000562 


41 


003704 


103447 




42 








43 








44 








45 


003706 


005267 


OOOOOOG 


46 


003712 


062704 


OOOOOOG 


47 


003716 


010467 


OOOOOOG 


48 


003722 


004767 


000242 


49 


003726 


000167 


177666 
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op-r-ri 
. uja f I L- 

Process the ACCESS command 

CMDACC: CALL OKFCOK 
BCC 1* 
FAB OR T #EM*NSF 



1*: 



CALL 
MOV 



CVTTAB 
OKFAND. R4 



j Cmd only valid if priv'd or in startup cf 

i Br if OK 

iElse abort command 

; Clean up white spaces in command line 
i Point to end of ACCESS entries 



Top of outer loop for each ACCESS specification 



3$: 



4*: 



TSTB 


<R3) 


BhIE 


4* 


JMP 


RDCMD 


CMP 


R4, OKFNND 


BLO 


5* 


FABORT 


#TBLOVF 


TST 


0F*FIL<R4> 


BEQ 


6* 


ADD 


#OF**SZ, R4 


BR 


4* 



.: End of command line? 

; Br if not 

j If so» finished/ get next command 



i Are u»B about to run over 
i Br if OK to add here 
/Else report table overflow 



NOACCESS entries? 
and abort 



5*: TST 0F*FIL<R4> / Is this entry free? 

Br if so 

If not, point to next slot 
And keep checking 

R4 now points to free ACCESS table entry, add entry from command line 

Errors: If there is an error on the dev:fil.ext specification for an 

ACCESS command, then the only problem is forbidding access to a requested 

device — this error only needs to be a warning. 

However, if there is an error on the switch, then we might end 

up granting full access when some restriction is desired — abort this. 

In general warn if they get less than they want, but abort if there is 

a chance they could get too much. 

6*: CALL OKFINI ilnit this ACCESS file entry (to all wild) 

Add cmd line entry to ACCESS table 
Report any specification errors 
"Readonly" is only valid switch 
Go handle switch if specified 
Report any switch errors 



15* 



CALL 


OKFINI 


CALL 


OKFADD 


BCS 


ACBDFS 


MOV 


#'R,RO 


CALL 


OKFSWI 


BCS 


ACBDSW 


Finished g 


etting file s 


INC 


RESDEV 


ADD 


#OF**SZ, R4 


MOV 


R4, DKFAND 


CALL 


SKPD2 


JMP 


3* 



.cation, step up to next entry and repeat 

i Count another entry added 

; Point to next ACCESS table entry 

; Remember end of ACCESS entries 

jSkip over terminating delimiters 

; Repeat to end of ACCESS command line 



I 
I 
t 

I 
I 
i 

i 
i 
« 
I 
i 
i 
i 
I 

€ 

i 



i 
i 



I 
c 

I 

( < 

i 

I* 

I ( 



I 



( 



t 

I, 
!. 

I 

I i 

t 

( 

( 
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3 
4 
5 
6 
7 
8 

9 

1 n 

11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 

27 
28 
29 
30 



003732 
003746 



003752 
003754 
003756 
003762 



003774 



003776 
004002 
004006 
004010 



004014 
004024 
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005064 OOOOOOG 



ACBDFS: FWARN #BADACC 

CLR 0F*FIL<R4) 



; Warn of invalid ACCESS specification 
j Make sure slot is released 



1 1 2300 
001002 
000167 
120027 
001403 
120027 
001366 



OOOOOOG 
OOOOOOG 

000054 



MOVE 


<R3)+, RO 


BNE 


2* 


JMP 


RDCMD 


CMPB 


RO, #SPACE 


BEQ 


3* 


CMPB 


RO. #COMMA 


BNE 


1« 



116701 OOOOOOG 

020467 OOOOOOG 

103012 

000167 177556 



Now skip up to end of this dev;fil/suj specification 

1$: MOVE <R3)+, RO ; Get next char 

Br if not end of command line 

At end of line* go get next command 

2*: CMPB RO, #SPACE ;Hit space separator? 

Br if done skipping 
Hit comma separator? 
Continue skipping if neither 

Have skipped over invalid dev;fil/suj specification, but have 
not hit end of line, go back and restart processing of the 
appropriate IIN03ACCESS command and finish the input line 

3*: MOVE C0RUSR,R1 i Ensure that Rl is correct 

Were we ACCESSing or NOACCESSING? 

Must have been NOACCESS, take short branch 

Must have been ACCESS, take long jump 



MOVE 


C0RUSR,R1 


CMP 


R4, OKFNND 


BHIS 


CMDNAC 


JMP 


CMDACC 



ACBDFX: FABORT #BADACC 
ACBDSW: FABORT #INVOPT 



j Abort command file! 
j Abort command file! 



( 



f 
% 

i 

( 
I 
f 
« 

i 
f 
« 

i 

i 
r 



f t 



i 

i 



J 

r 

> c 

i 

> f 

I 

I* 

i 

I 
< 

I 

i 
< 
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NOACCESS Command 

1 . SBTTL NOACCESS Command 

Process the NOACCESS command 



3 








4 








5 


004034 


004767 


000146 


6 


004040 


103004 




7 
S 
9 


004042 






004052 


004767 


0000000 


10 


004056 


016704 


ooooooe 


11 








12 








13 








14 


004062 


105713 




15 


004064 


001002 




16 


004066 


000167 


0000000 


17 








IS 


004072 


162704 


OOOOOOG 


19 


004076 


020467 


0000000 


20 


004102 


103004 




21 


004104 






cdeC 

23 


004114 


005764 


OOOOOOG 


24 


004120 


001364 




■^•r> 








26 








27 








20 








29 








30 


004122 


004767 


000110 


31 


004126 


004767 


000146 


32 


004132 


103730 




33 


004134 


012700 


000127 


34 


004140 


004767 


000322 


35 


004144 


103727 




36 








37 








3S 








39 


004146 


005267 


OOOOOOG 


40 


004152 


010467 


OOOOOOG 


41 


004156 


004767 


000006 


42 


004162 


000167 


177674 



CMDNAC: CALL OKFCOK 
BCC 1* 
FAB OR T #EM*NSF 



1*: 



CALL 
MOV 



CVTTAB 
OKFNND, R4 



i Cmd only valid if priv'd or in startup cf 

iBr if OK 

/Else abort command 

; Compress command line white space 
; Point to start of NOACCESS entries 



Top of outer loop for each NOACCESS specification 



3*; 



4*: 



TSTB 


<R3) 


BNE 


4* 


JMP 


RDCMD 



5*: 



SUB #0F««SZ.R4 

CMP R4, OKFAND 

BHIS 5* 

FABORT #TBLOVF 

TST 0F*FIL<R4) 

BNE 4* 



J Have iae hit end of command line? 

; Br if not 

ilf so* finished* get next command 

i Try to make room for new entry 

i Have ute stepped into the ACCESS entries? 

; Br if OK to add here 

iElse report table overflow and abort 

; Is this entry free? 

jif not> point to next slot 



6*: 



15*: 



R4 now points to free NOACCESS table entry* add entry from command line 
Since any error on a NOACCESS would be less restrictive than desired. 
abort* rather than warn* on any errors. 

Init this NOACCESS file entry <to all wild) 
Add cmd line entry to NOACCESS table 
Abort on any specification errors 
"Write" is only valid switch 
Go handle switch if specified 
Report any switch errors 

Finished getting file specification* step up to next entry and repeat 

* Count another entry added 

/Remember new start of NOACCESS entries 

iSkip over terminating delimiters 

i Repeat to end of NOACCESS command line 



CALL 


OKFINI 


CALL 


OKFADD 


BCS 


ACBDFX 


MOV 


#'W*RO 


CALL 


OKFSWI 


BCS 


ACBDSW 



INC 


RESDEV 


MOV 


R4* OKFNND 


CALL 


SKPD2 


JMP 


3* 



I 



i 
I 



C 
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. SBTTL 



N0EACCESS3 Command subroutines 



I 
« 

f 
f 

i . 

f 

I 
f 

► I 

! 
i 

t 



\ 



i 



25 
26 



d 
3 
4 

5 004166 

6 004170 

7 004174 
a 004176 
9 004202 

10 004204 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 004206 

22 004214 

23 004216 

24 004224 
004226 
004230 

27 004232 

28 004234 
29 

30 
31 
32 
33 
34 
35 
36 

37 004236 

38 004242 

39 004246 

40 004252 

41 004256 

42 004264 

43 004272 

44 004276 
45 

46 
47 
48 
49 
50 
51 
52 
53 
54 

55 004300 

56 004304 

57 004310 



005203 
121327 
001774 

121327 
001771 
000207 



032761 
001006 
032767 
001002 
000261 
000401 
000241 
000207 



012702 
010264 
010264 
010264 
112764 
112764 
105064 
000207 



004767 
121327 
001036 



SUBROUTINE TO SKIP OVER COMMAS AND SPACES 



000040 
000054 



SKPDl: 
SKPD2: 



INC 

CMPB 

BEQ 

CMPB 

BEQ 

RETURN 

. SBTTL 



R3 

(R3).#' 

SKPDl 

(R3),#'; 

SKPDl 



POINT TO NEXT CHAR 

IS IT A SPACE 

KEEP SKIPPING IF YES 

IS IT A COMMA 

KEEP SKIPPING IF YES 



Check for privilege to issue CN03ACCESS 



ACCESS and N0ACCE3S commands are only alloujed in start-up command files 
or if the user is privileged. Return with carry clear if either condition 
is meti return with carry set if not. 



Inputs: 

Rl contains the job index 



OOOOOOG 
OOOOOOG 



OOOOOOG OKFCOK: BIT 

BNE 
OOOOOOG 



9*: 
10*: 



BIT 

BNE 

SEC 

BR 

CLC 

RETURN 

. SBTTL 



#*SUCF, LSW9(R1) 

9* 

#PO*SYS, PRIVCO 

9* 

10* 



Are we in start-up command fileT' 

Return OK if so 

Is job privileged? 

Return OK if so 

If neither* return with error 



Init a CND3ACCESS table entry 



Initialize a CN03ACCESS table entry to all wildcards. 



Inputs: 

R4 points to CN03ACCESS table entry. 



132500 

OOOOOOG 

000002G 

000004G 

177777 

177777 

OOOOOOG 



OOOOOOG 
OOOOOOG 



OKFINI: MOV 
MOV 
MOV 
MOV 
MOVB 
MOVB 
CLRB 
RETURN 



SBTTL 



#WLDNAM, R2 
R2, 0F*FIL<R4) 
R2, 0F*FIL+2(R4> 
R2, 0F*FIL+4<R4) 
#-1, 0F*DEV(R4) 
#-1, 0F*UNT<R4) 
aF*FLG<R4) 



; Get RAD50 wildcard value 



; Set 
i Set 
i Set 
i Set 
i Set 



FIL to 
NAM to 
EXT to 
device 
device 



wildcard 
wi Idcard 
wildcard 
index to wild 
unit to wild 



; No flags yet 



Add entry to CN03ACCESS tables 



Accrue device or file name and add entry to CN03ACCESS table. 
CN03ACCESS table entry is assumed to be initialized to all wild. 

Inputs: 

R3 points to current input command line location 
R4 points to empty CN03ACCESS table entry 



c 

( 



OOOOOOG 
000072 



OKFADD: CALL 
CMPB 
BNE 



GTRD50 
<R3), #': 
10* 



i Scan first name 

iWas this a device name? 

jNope. leave device as wild^ go treat as file 



i 



I 



I i 

I 

I 

r 

t 



c 

i 
{ 
i 
I 
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58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



004312 
004316 
004322 
004324 
004330 
004332 



004340 
004344 
004350 
004352 
004356 



004362 
004364 
004366 
004372 
004374 
004400 
004402 



004406 
004412 
004414 
004420 
004422 
004426 



004434 
004440 
004442 
004444 
004450 



004456 
004460 



004464 



016700 
020027 
001417 
004767 
103403 
016267 



016701 
004767 
103444 
110164 
1 1 0264 



005203 
111300 
120027 
00140L-i 
004767 
103426 
004767 



016700 
001423 
020027 
001405 
010064 
016764 



121327 
001006 
005203 
004767 
016764 



000241 
000207 



000261 
000207 



OOOOOOG 
132500 

OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
000170 



MOV 


R50BUF, RO 


CMP 


RO, #WLDNAM 


BEQ 


8$ 


CALL 


ASNSRC 


BCS 


7* 


MOV 


AT*DEV<R2) 



OOOOOOG 
OOOOOOG 



000052 

OOOOOOG 

OOOOOOG 

OOOOOOG 

132500 

OOOOOOG 
000002G 000002G 

000056 



OOOOOOG 
OOOOOOG 000004G 



We have a device specification 

Translate logical assignments if necessary and insert the entry 

i Get specified device name 
; Was it #: ? 

; If *> skip to file (device is default wild) 
; Not wild* convert logical to physical 
; Br if entry not in assign table 
AT*DEV<R2)* R50BUF i Replace logical name with physical name 

Translate physical device specification to device table index 

7$: MOV R50BUF*R1 i Copy device name 

Convert into dev index <R1 ) and unit # <R2) 

Br if bad device name 

Set device index into access table 

Set device unit into access table 

We need to accrue the file specification 

8*: INC R3 iSkip over : 

Get first char of file spec 

Wild card? (CHKDLM would find it) 

If yes> go accrue it 

1st char of filnam shouldn't be delim 

If it is. must be dev: > or dev: /switch 

9*: CALL GTRD50 i Accrue file name 



MOV 


R50BUF, Rl 


CALL 


CVTDEV 


BCS 


13* 


MOVE 


R1,0F*DEV<R4) 


MOVE 


R2, 0F*UNT<R4> 



INC 


R3 


MOVE 


<R3). RO 


CMPB 


RO, #'* 


BEQ 


9« 


CALL 


CHKDLM 


BCS 


12* 


CALL 


GTRD50 



We have a file specification 



10*: 



MOV 
BEQ 
CMP 
BEQ 
MOV 
MOV 



R50BUF, RO 

13* 

RO, #WLDNAM 

11* 

RO, 0F*FIL(R4) 



J Get RAD50 file name <l-3) 

j Br on invalid file spec 

; Fi le name wi IdT' 

; Br if so (already init'd to wild) 

; Set file name into access table 



CMPB 


(R3),#'. 


BNE 


12* 


INC 


R3 


CALL 


GTRD50 



R50BUF+2, 0F*FIL+2(R4) i Set 2nd half (4-6) of name 
Check for file extension 

11*: CMPB (R3),#'. i Was file extension specified? 

; Br if not (already init'd to wild) 
i Step over . 
; Accrue the extension 
MOV R50BUF, DF*FiL+4(R4) i Set extension into access table 

Normal return with no error 

12*: CLC 

RETURN 

i Return thru here on invalid device or file specification 



13*: 



SEC 
RETURN 

. SBTTL 



i 
I 
ff 



I 
f 

« 

i 
< 
C 

4 

i 



Handle CN03ACCESS switches 



i 
i 
I 



TSKM2B — Keyboard DEFINE Comma MACRO V05. 05 
Handle CN03ACCESS switches 



Thursday 19-Jan-89 14:53 Page 32-2 



iis 








116 








117 








lis 








119 








120 








121 








122 








123 








124 








125 








126 








127 








128 


004466 


121327 


000057 


129 


004472 


001020 




130 


004474 


116346 


000001 


131 


004500 


042716 


000040 


132 


004504 


122600 




133 


004506 


001402 




134 


004510 


000261 




135 


004512 


000411 




136 


004514 


152764 


OOOOOOG 


137 








138 








139 








140 


004522 


005203 




141 


004524 


111300 




142 


004526 


004767 


0000000 


143 


004532 


103373 




144 








145 


004534 


000241 




146 


004536 


000207 





This routine checks to see if a switch was specified and set the 
read-only flag for the entry if so. The only valid switches are 
/R or /r for ACCESS and /W or /w for NOACCESS. Examples: 

ACCESS dev: CfilnamC. ext33/Readonly 
NOACCESS dev: Cfilnamt. extJD/Write 

Inputs; 

RO contains Ist char (uppercase) of valid switch 

R3 points to 1st char after dev or file specification 

R4 points to CNOIACCESS table entry 

Switch specified? 
Just return if not 
Get Ist char of switch 
Force it to uppercase ('a-'A) 
Does it say read-only? 
Br if so 

Else this is an invalid switch 
And return 
#OT»RON» 0F«FLe<R4) ; Set read-only flag on file spec 

Now step the cmd line ptr u\;i to the end of the switch 

; Step up to next delimiter 

j Get the next char 

; Is it a delimiter? 

i Keep searching for end of switch 

! Normal return 



OKFSWI: 


CMPB 


<R3),#'/ 




BNE 


9* 




MOVB 


1(R3>> -<SP) 




BIC 


#40. <SP) 




CMPB 


(SP)+, RO 




BEQ 


13* 




SEC 






BR 


10* 


13*: 


BISB 


#OT*RON» OF* 



14*: 



9*: 
10*: 



INC 


R3 


MOVB 


<R3),R0 


CALL 


CHKDLM 


BCC 


14* 


CLC 




RETURN 
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4 








5 








6 








7 








S 








9 








10 








11 








12 








13 








14 


004540 






15 








16 








17 








18 


004540 


012702 


177777 


19 


004544 


005000 




20 


004546 


071027 


000050 


21 


004552 


005701 




22 


004554 


001412 




23 


004556 


010102 




24 


004560 


020127 


000035 


k't? 


004564 


()() 1 40tj 




26 


004566 


162701 


000036 


27 


004572 


010102 




28 


004574 


020227 


000011 


29 


004600 


101027 




30 


004602 


070027 


000050 


31 








32 








33 








34 








35 








36 








37 


004606 


020167 


0000000 


38 


004612 


001403 




39 


004614 


020167 


OOOOOOG 


40 


004620 


001007 




41 


004622 


016701 


0000000 


42 


004626 


005702 




43 


004630 


002016 




44 


004632 


116702 


00000 10 


45 


004636 


000413 




46 








47 








48 








49 


004640 


016700 


OOOOOOG 


50 


004644 


020160 


OOOOOOG 


51 


004650 


001405 




52 


004652 


162700 


000002 


53 


004656 


00237^3 




54 








55 








56 








57 


004660 


000261 





SBTTL 



Corivert RAD50 dev name to index and unit 



CVTDEV is called to convert a RAD50 device name to the corresponding 
device table index number and unit number. 

Inputs: 
Rl = RAD50 device name. 

Outputs: 
Rl = Device table index number for device. 
R2 = Unit number. 
C~flag set on return if invalid device name. 

CVTDEV: 

Get device name and split off unit number. 



6*: 



MOV #-l,R2 

CLR RO 

DIV #50, RO 

TST Rl 

BEQ 6i|i 

MOV R 1 , R2 

CMP R1,#R50AST 

BEQ 6* 

SUB #36, Rl 

MOV R 1 .. R2 

CMP R2, #9. 

BHI a* 

MUL #50, RO 



ASSUME NO UNIT NUMBER SPECIFIED 

SET FOR DIVIDE 

SPLIT OFF LOW-ORDER RAD50 CHARACTER 

WAS A UNIT NUMBER SPECIFIED? 

BR IF NOT (LEAVE -1, INDICATES UNSPECIFIED) 

Not unspecified, assume * for the moment 

Is unit number a wild cardT-" 

Preserve it if so, else 

CONVERT RAD50 DIGIT TO BINARY VALUE 

PUT UNIT NUMBER IN R2 

MAKE SURE UNIT NUMBER IN RANGE 0-9. 

BR IF INVALID UNIT NUMBER 

GET DEVICE NAME WITHOUT UNIT # 



The RAD50 device name less unit number is now in Rl. 
The unit number is in R2. 



Translate SY and DK. 



2*: 



CMP 


R1,R50SY 


BEQ 


2* 


CMP 


R1,R50DK 


BNE 


3* 


MOV 


SYINDX,R1 


TST 


R2 


BGE 


4* 


MOVB 


SYUNIT+1,R2 


BR 


4* 



; IS DEVICE NAME SY? 

; BR IF YES 

; IS DEVICE NAME DK? 

} BR IF NOT 

i GET SY DEVICE INDEX NUMBER 

j Was unit number specified? 

i Yes, must have been 0-9 or * 

; No, just SY: , use real boot unit 



Look up device name in permanent device name table. 



3*: MOV NUMDEV, RO 

5*: CMP R1,PNAME<R0) 

BEQ 7* 

SUB #2, RO 

BGE 5* 

Invalid device name 

8*: SEC 



GET INDEX OF LAST PERM NAME 
LOOK UP DEVICE NAME 
BR IF FOUND 
CHECK NEXT ENTRY 



I 

f 
f 
« 
I 

« 

i 
< 
I 
f 

C 
< 

i 
i 
i 
I 
I 
i 
I 
I 



SIGNAL ERROR ON RETURN 



i 

! 
\ ( 

( 

i 

i 

I < 
I 

f 

I 

i 

i 
i 

i 

[ ( 
t 
t 
i 

i 
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5S 


004662 


000412 




59 








60 








61 








62 


004664 


010001 




63 


004666 


020227 


000035 


64 


004672 


103405 




65 


004674 


101003 




66 


004676 


012702 


177777 


67 


004702 


000401 




68 


004704 


005002 




69 


004706 


000241 




70 








7i 








72 








73 


004710 


000207 







BR 


9* 


; Found device 


name. 


7$: 


MOV 


RO, Rl 


4$: 


CMP 


R2. #R50AST 




BLO 


10* 




BHI 


11* 




MOV 


#-l,R2 




BR 


10* 


11*: 


CLR 


R2 


10«: 


CLC 




i Return 




9$: 


RETURN 





GET DEVICE NAME TABLE INDEX 

Unit number or * or unspecified? 

0-9j leave as is 

Unspecified^ replace with 

Replace * with wild <-l) 

Done 

Unspecified unit becomes 

SIGNAL NO ERROR ON RETURN 



( 

I 

c 

I 

t 

I ( 
( 
c 

I 

i 



TSKM2B 
OETSYP 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

1 r> 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3S 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Accept system logon passujord 

, SBTTL GETSYP — Accept system logori passuiord 

The system logon password is an optional password which the system 
may require for some lines before entering the normal logon sequence. 

Inputs: 
Rl = Job index number 



004712 010246 
004714 010346 
004716 010546 



004720 105767 OOOOOOG 
004724 001535 



004726 052761 OOOOOOG OOOOOOG 



004734 032761 OOOOOOG OOOOOOG 
004742 00113k' 



004744 042767 OOOOOOG OOOOOOG 

004752 004767 OOOOOOG 

004756 052761 OOOOOOG OOOOOOG 



004764 012705 000002 



004770 
004776 



005004 012700 000060' 
005010 016760 OOOOOOG 00000£ 
005016 104375 



005020 012702 OOOOOOG 

005024 042761 OOOOOOG OOOOOOG 

005032 2*: 

005036 120027 000001 

005042 001472 

005044 120027 000015 

005050 001770 

005052 120027 000012 



GETSYP: MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R5, -(SP) 



Dun't d&k fur cj ii elbfa'uiu'fii X r there IS none defined 



TSTB 
BEQ 



SYPSWD 
9« 



i Is there a defined system password? 
i Br if not 



Pretend to lock KMON to line to prevent '-C aborts 

B I S #*PRGLK, LSW5 < R 1 ) 
Log off job immediately if it has been aborted 

BIT #*DOOFF, LSW<R1) ^Should the job be logged off? 

BNE 20* } Br if yes 

Disable control-C abort and control~W subprocess switch 

BIC #P2*VIR>PRIVC2 i Disable subprocess use 

CALL FIXPRV i Transfer privilege flag to LSW tables 

BIS #*SCCA, LSW5(R1 ) ; Suppress control-C aborts 

Initialize count of number of times password has been entered 



1*: 



MOV #2, R5 

Print password prompt 

. PRINT #CRLF 
.PRINT ttSYPSPR 

Set read time-out time 

MOV #RDTIME, RO 
MOV VONTM, 2<R0> 
EMT 375 

Accept a line of input 



MOV 


#BLKO, R2 


BIC 


#*ECHO, LSW2<R1) 


. TTYIN 




CMPB 


RO. #1 


BEQ 


20* 


CMPB 


RO, #CR 


BEQ 


2* 


CMPB 


RO, #LF 



i Init password attempt count 



; Print CR-LF 

i Print password prompt 



iPoint to EMT arg block 
j Set timeout value 
i Set read time-out 



Point to buffer for input string 

Turn off character echoing 

Get next input character 

Did read time-out? 

Br if yes 

Ignore carriage return 

; End of input line? 



I 

C 
i 
I 



c 

i 



t 
t 



i 



I « 

I* 



I 



f 
c 

I 

i 

I r 

I 
{ 
( 



005056 
005060 
005064 
005066 
005070 
005072 



005074 
005100 
005104 
005H0 



005114 
005120 
005124 
005126 
005130 
005132 
005134 



TSKM2B 
GHTSYP - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
1 10 
111 
112 
Errors detected 



- Keyboard DEFINE Comma MACRO V05. 05 

- Accept system logon password 



Thursday 19-Jan-89 14: 53 Page 34-1 



005136 
005140 



005142 
005150 
005156 
005164 
005172 
005200 
005206 
005212 



005220 
005222 
005224 
005226 



005230 

005234 



001405 
020227 
101362 
1 1 0022 
000760 
105012 



012703 
004767 
012703 
004767 



012702 
012703 
122213 
001003 
105723 
001374 
000402 



077564 

000433 



052761 
052761 
052761 
042761 
042761 
016767 
004767 



012605 
012603 
012602 
000207 



012700 
104375 

000001 




#^ r\ *^ f\ * *^ J^ 



3$: 



i Br if yes 

j Input line too long? 

i Br if yes 

J Store received character 

iContinue receiving input 

i Store null at end of string 



Convert received and expected passtuords to upper case 



BEQ 


3* 


CMP 


R2, #BLK0+50. 


BHI 


2* 


MOVE 


RO, (R2) + 


BR 


2* 


CLRB 


(R2) 



0000000 
0000000 
OOOOOOG 
OOOOOOO 



ooooooe 

OOOOOOG 



MOV 


#BLKO, R3 


CALL 


CVTUC 


MOV 


#SYPSWD, R3 


CALL 


CVTUC 



4$: 



jPoint to received password 
> Convert to upper case 
; Point to expected pessujord 
i Convert to upper case 



See if received password matches expected password 



Point to received string 

Point to expected password 

Does password match? 

Br if not 

Are we at the end of the password? 

Br if not 

Got correct password 



Invalid password. 

Give one extra try then give up. 



MOV 


#BLKO, R2 


MOV 


#SYPSWD, R3 


CMPB 


(R2)+, <R3) 


BNE 


5* 


TSTB 


<R3) + 


BNE 


4* 


BR 


6* 



5*: 



SOB 
BR 



R5, 1* 
20* 



j Loop if user gets another try 
i Give up 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



6*: 



Password successfully entered 

BIS #*ECHO, LSW2<R1) i Turn echoing back on 

BIS #«NOIN. LSW3(R1 ) ; Reset flags for start-up command file 

BIS #*SUCF, LSW9(R1) 

BIC #«PRGLK> LSW5<R1) i Unlock KMON 

BIC #*SCCA, LSW5(R1 ) j Remove controi-C suppression 

MOV PRIVA2>PRIVC2 ; Reset privilege flags 

CALL FIXPRV i Transfer privilege flag to LSW tables 



. PRINT #CRLF 
Finished 



i Print CR-LF 



9*: 



MOV 
MOV 
MOV 
RETURN 



<SP)+, R5 
<"SP)+, R3 
<SP>+, R2 



Password not successfully entered. 
Log off the job. 



000066 ' 



?0«: 



MOV 
EMT 

. END 



#HNGEMT> RO 
375 



; Point to logoff emt 
j Log off the job 



I 
f 

I 

i 
f 

i 
i 
I 
i 
i 
I 
« 
i 

* 



I 



TSKM2B — Keyboard DEFINE Comma MACRO V05. 05 Thursday 19-Jan-89 14:53 Page 34-2 
QETSYP — Accept system logon password 

**» Assembler statistics 

Work file reads: 

Work file writes: 

Size of uiork file: 10168 Words ( 40 Pages) 

Size of core pool: 18176 Words < 71 Pages) 

Operating system: RT-11 

Elapsed time: 00:01:10.35 

, LP: TSKM2B=DK: TSKM2B/C/N: SYM 



i 

I 
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) ' Cross reference table <CREF V05. 05) 



c 



i 

i 
i 

f 
f 



I 
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21-32 

17-11 

21-38 

34-52 

18-28 

4-5 

5-9 

5-21 

5-33 

5-45 

5-57 

6-29 

22-46 



15-9 



15-14 



16-9 



16-14 



16-14 



18-17 



18- 


-32 


4- 


-12 


5- 


-10 


5- 


-22 


5- 


-34 


5- 


-46 


5- 


-58 


6- 


-30 


23- 


-11 



18-62 



18-34 
4-13 
5-11 
5-23 
5-35 
5-47 
5-59 
7-17 

29-7 



25-17 



18- 


-37 


4- 


-14 


5- 


-12 


5- 


-24 


5- 


-36 


5- 


-48 


5- 


-60 


7- 


-23 


29- 


-20 



25-26 



18-39 
4-15 
5-13 
5-25 
5-37 
5-49 
5-61 
7-84 



34-39 



18-55 
4-16 
5-14 
5-26 
5-38 
5-50 
5'""62 
7-88 

r»o-?9 



34-40 



18-57 
4-17 
5-15 
5-27 
5-39 
5-51 
5-63 
9-16 

31-7 



34-97 



19-33 
4-18 
5-16 
5-28 
5-40 
5-52 
5-64 
9-44 

31-21 



25- 


-21 


5- 


-5 


5- 


-17 


5- 


-29 


5- 


-41 


5- 


-53 


5- 


-65 


11- 


-57 



5-6 

5-18 

5-30 

5-42 

5-54 

13-69 



5-7 

5-19 

5-31 

5-43 

5-55 

14-32 



13-62 30-4 
4-4 4-11 5 --4 
4-6 4-19 5-66 
sTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX 
lusTSX-PlusTSX-PlusTSX-PlusTSX-PlusT 
-PlusTSX-PlusTSX-PlusTSX-PlusTSX-Plu 



S&H Computer Systems. Inc. 



-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-Pl 
SX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX- 
sTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTS 
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